home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gas / testsuite / gasp / pl3.asm < prev    next >
Encoding:
Assembly Source File  |  1996-07-04  |  389 b   |  31 lines
  1.     .ALTERNATE
  2.  
  3. foo    MACRO    string
  4.     LOCAL    lab1, lab2
  5. lab1:    DATA.L    lab2
  6. lab2:    SDATA    string
  7.     ENDM
  8.  
  9.     foo    "An example"
  10.     foo    "using LOCAL"
  11.  
  12. ! test of LOCAL directive
  13.  
  14. chk_err    MACRO    limit
  15.     LOCAL        skip !! frob
  16.     LOCAL        zap,dog,barf
  17. barf:    cmp        ax,limit    !! check value against
  18.                     !! limit
  19.     jle        skip        !! skip call if OK
  20. skip:    call         error
  21.     foo        dog
  22.     zap        dog    
  23.     nop
  24.     ENDM
  25.  
  26.     chk_err 5
  27.     chk_err 10
  28.  
  29.  
  30.     END
  31.